home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 April / PCWorld_2005-04_cd.bin / software / temacd / godfather / TGF_069.exe / $INSTDIR / Scripts / 06 MD5.sct < prev    next >
Encoding:
Text File  |  2005-02-06  |  408 b   |  19 lines
  1. Program md5_test;
  2. var
  3.  f: TFileStream;
  4.  sTmp: string;
  5.  
  6. begin
  7.   tg_Init;
  8.   f := TFileStream.Create( 'c:\md5.txt', fmcreate );
  9.   try
  10.     repeat
  11.       tg_LoadFile; // re load info from file so we can use the gTag class variable
  12.       sTmp := gTag.FileName + '=' + gTag.GetMd5Str( true ) + #13#10;
  13.       f.Write( sTmp, Length( sTmp ) );
  14.     until not tg_Skip;
  15.   finally
  16.     f.free;
  17.   end;
  18. end.
  19.